Data visualization with ggplot2 and plotly

Data Visualization with ggplot2

Install and load ‘ggplot2’ package

#install.packages('ggplot2')  #If this is the first time you use ggplot, need to install first.
library(ggplot2)

Histogram

ggplot(diamonds, aes(x = carat)) +        #initialize plot with ggplot()
geom_histogram(bins =30)                 #Add layer with geom_histogram()

#Try bins = 5

*** Barplot ***

counts <- table(diamonds$clarity)    #Count how many samples in each clarity category
counts

   I1   SI2   SI1   VS2   VS1  VVS2  VVS1    IF 
  741  9194 13065 12258  8171  5066  3655  1790 

ggplot(diamonds, aes(x = clarity)) +           #Initialize plot with ggplot()
geom_bar(fill = "lightblue", color = "black")  #Add layer with geom_bar()

Boxplot

Explore price distribution of the daimond in each clarity category

ggplot(diamonds, aes(x = clarity, y = price)) +   #Initialize plot with ggplot()
geom_boxplot(fill = "salmon", color = "red")      #Add layer with geom_bar()

Scatter plot - Effect of carat and clarity

p <- ggplot(diamonds, aes(x = carat, y = price)) +  #initialize plot with ggplot( )
     geom_point(aes(color = clarity))               #Add layer of points with geom_point
p

Interactive Data Visualization with Plotly in ggplot

Install and load ‘plotly’ library

#install.packages("plotly")
library(plotly)

package <U+393C><U+3E31>plotly<U+393C><U+3E32> was built under R version 3.4.4Loading required package: ggplot2

Attaching package: <U+393C><U+3E31>plotly<U+393C><U+3E32>

The following object is masked from <U+393C><U+3E31>package:ggplot2<U+393C><U+3E32>:

    last_plot

The following object is masked from <U+393C><U+3E31>package:stats<U+393C><U+3E32>:

    filter

The following object is masked from <U+393C><U+3E31>package:graphics<U+393C><U+3E32>:

    layout

Get a glimpse with ‘ggplotly’

p <- ggplot(diamonds, aes(x = carat, y = price)) +  #initialize plot with ggplot( )
     geom_point(aes(color = clarity))               #add layer of points with geom_point
ggplotly(p)                                         #make interactive with ggplotly